# 1 "C:/Bruker/TopSpin3.6.2/exp/stan/nmr/lists/pp/user/dc_cpdec"
;cp (TopSpin 2.0)

;basic cp experiment
;written by HF 1.3.2001
;changed by JOS 05/06/03
;comments added by STE 4.4.2006

;Avance II+ version
;parameters: 
;p3 : proton 90 at power level pl4
;p15 : contact time at pl1 (f1) and pl2 (f2)
;pl1 : X power level during contact
;sp0 : proton power level during contact
;pl2 : =120dB, not used
;pl4 : 1H 90deg pulse power
;pl5 : 1H power level during contact
;pl12 : decoupling power level (if not pl13)
;pl13 : special decoupliong power level
;d1 : recycle delay
;cnst21 : on resonance, usually = 0
;pcpd2 : pulse length in decoupling sequence
;cpdprg2 : cw, tppm (at pl12), or lgs, cwlg. cwlgs (LG-decoupling 
;spnam0 : use e.g. ramp.100 for variable amplitude CP
;here pl13 is used instead of pl12)
;zgoptns : -Dfslg, -Dlacq, or blank
# 27 "C:/Bruker/TopSpin3.6.2/exp/stan/nmr/lists/pp/user/dc_cpdec"
;$COMMENT=basic cp experiment, arbitrary contact and decoupling schemes
;$CLASS=Solids
;$DIM=1D
;$TYPE=cross polarisation
;$SUBTYPE=simple 1D
;$OWNER=Bruker

prosol relations=<solids_cp>

# 1 "C:/Bruker/TopSpin3.6.2/exp/stan/nmr/lists/pp/user/Avancesolids.incl" 1
;Avancesolids.incl
;   for TCU3
;
;version 1 28.2.2001, written by HF
;	   4.4.2006, complemented by Ste
# 7 "C:/Bruker/TopSpin3.6.2/exp/stan/nmr/lists/pp/user/Avancesolids.incl"
;$CLASS=Solids INCL
;$COMMENT=definitions for setrtp and setnmr

;switch between 1H or 19F output (H amplifier) 

# 14 "C:/Bruker/TopSpin3.6.2/exp/stan/nmr/lists/pp/user/Avancesolids.incl"
;gating pulse for RX, ADC and HPPR auto mode


# 18 "C:/Bruker/TopSpin3.6.2/exp/stan/nmr/lists/pp/user/Avancesolids.incl"
;explicit blanking of preamp, receiver, adc, not implemented yet


# 26 "C:/Bruker/TopSpin3.6.2/exp/stan/nmr/lists/pp/user/Avancesolids.incl"
;generate dwell clock


;turn dwell clock on/off
# 32 "C:/Bruker/TopSpin3.6.2/exp/stan/nmr/lists/pp/user/Avancesolids.incl"
;


# 36 "C:/Bruker/TopSpin3.6.2/exp/stan/nmr/lists/pp/user/Avancesolids.incl"
;define data sampling for WAHUHA type experiments, samples analogue or digitally for d9, closes receiver


# 40 "C:/Bruker/TopSpin3.6.2/exp/stan/nmr/lists/pp/user/Avancesolids.incl"
;explicit transmitter blanking, not supported yet

;NCO switching, to be implemented

;$Id: Avancesolids.incl,v 1.8.2.1 2017/02/22 17:02:01 ber Exp $
# 36 "C:/Bruker/TopSpin3.6.2/exp/stan/nmr/lists/pp/user/dc_cpdec" 2
# 1 "mc_line 38 file C:/Bruker/TopSpin3.6.2/exp/stan/nmr/lists/pp/user/dc_cpdec dc-measurement inserted automatically"

    dccorr
# 38 "C:/Bruker/TopSpin3.6.2/exp/stan/nmr/lists/pp/user/dc_cpdec"
# 38 "C:/Bruker/TopSpin3.6.2/exp/stan/nmr/lists/pp/user/dc_cpdec"
1 ze

2 d1 do:f2

;#ifndef lacq		
			;disable protection file for long acquisition change decoupling power !!! or you risk probe damage
			;if you set the label lacq (ZGOPTNS -Dlacq), the protection is disabled
# 46 "C:/Bruker/TopSpin3.6.2/exp/stan/nmr/lists/pp/user/dc_cpdec"
;#include <aq_prot.incl>	
			;allows max. 50 msec acquisition time, supervisor
			;may change  to max. 1s at less than 5 % duty cycle
			;and reduced decoupling field
;#endif

;  1u fq=cnst21:f2
  (p3 pl4 ph1):f2 

  (p15 pl1 ph2):f1 (p15:sp0 ph10):f2
  
  1u cpds2:f2
  go=2 ph31 		;pl12 is used here with tppm, pl13 with cwlg, cwlgs
  1m do:f2
  wr #0
HaltAcqu, 1m
exit
# 64 "C:/Bruker/TopSpin3.6.2/exp/stan/nmr/lists/pp/user/dc_cpdec"
ph0= 0
ph1= 1 3
ph2= 0 0 2 2 1 1 3 3
ph10= 0
ph31= 0 2 2 0 1 3 3 1
